home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / ADDFLOP.SC next >
Text File  |  1992-03-15  |  988b  |  41 lines
  1. ;---------------------------------------------ADDFLOP.SC
  2. ;-----------------------SCRIPT FOR FLOPPY TABLE DATA ENTRY
  3. clearall
  4. clear
  5. @24,1 clear eol
  6. STYLE ATTRIBUTE 30
  7. ?? "CREATING DATA ENTRY TABLE...."
  8. ;---------------------MAKE SELECTION
  9. CLEARALL {MODIFY} {EDIT} {FLOPPIES}
  10. END DOWN
  11. ;MOVETO [CL #]
  12. MENU {IMAGE} {PICKFORM} {F}
  13. ;-------ALLOW NEW RECORDS UNTIL F2 IS PRESSED
  14. X=TRUE
  15. WHILE X = TRUE
  16. WAIT TABLE
  17.      prompt "PRESS F2 WHEN DONE, F7 TO CHANGE VIEW, F5 TO SORT",
  18.       "PRESS F8 TO READ A NEW FLOPPY INTO DATABASE"
  19. UNTIL "F2","F5","F7","F8"
  20. SWITCH
  21.  
  22.   CASE RETVAL = "F2" :
  23.               CLEARALL CLEAR
  24.               @24,1 CLEAR EOL
  25.               ?? "POSTING NEW RECORDS..."
  26.               X=FALSE
  27.               DO_IT!
  28.  
  29.   CASE RETVAL = "F5" :
  30.               DO_IT! PLAY "FLOPSORT" EDITKEY
  31.   CASE RETVAL = "F7" :
  32.               FORMKEY
  33.   CASE RETVAL = "F8" :
  34.               DO_IT!
  35.               PLAY "READFLOP"
  36.   ENDSWITCH
  37. ENDWHILE
  38. CLEARALL
  39. CLEAR
  40.  
  41.